perm filename MFDOVR.DIF[MF,DEK] blob sn#557224 filedate 1981-01-22 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  1) MFDOVR.SAI[MF,DEK] and 2) MFDOVR.SAI[MF,DRF]	1-22-81 11:17	pages 1,1
C00005 00003	  1) MFDOVR.SAI[MF,DEK] and 2) MFDOVR.SAI[MF,DRF]	1-22-81 11:17	pages 3,3
C00006 ENDMK
C⊗;
  1) MFDOVR.SAI[MF,DEK] and 2) MFDOVR.SAI[MF,DRF]	1-22-81 11:17	pages 1,1

**** File 1) MFDOVR.SAI[MF,DEK]/1P/6L
1)	C00014 00004	Routines for presswd mode.
1)	C00020 ENDMK
1)	C⊗;
**** File 2) MFDOVR.SAI[MF,DRF]/1P/6L
2)	C00015 00004	Routines for presswd mode.
2)	C00021 ENDMK
2)	C⊗;
***************


**** File 1) MFDOVR.SAI[MF,DEK]/3P/27L
1)		for y←xw+ylow thru xw+yhigh do z←z lor rast[y];
1)		if z then done;
**** File 2) MFDOVR.SAI[MF,DRF]/3P/27L
2)		for y←xw+ylow thru xw+yhigh do
2)			var!gets!rast!lor!var(z,y) # z←z lor rast[y];
2)		if z then done;
***************


**** File 1) MFDOVR.SAI[MF,DEK]/3P/46L
1)		for y←xw+ylow thru xw+yhigh do z←z lor rast[y];
1)		if z then done;
**** File 2) MFDOVR.SAI[MF,DRF]/3P/47L
2)		for y←xw+ylow thru xw+yhigh do
2)			var!gets!rast!lor!var(z,y) # z←z lor rast[y];
2)		if z then done;
***************


**** File 1) MFDOVR.SAI[MF,DEK]/3P/56L
1)			if rast[xw] then go to nonblank3;
1)		yl←yl+1;
**** File 2) MFDOVR.SAI[MF,DRF]/3P/58L
2)	IFXMEM	begin var!gets!rast(xtemp,xw); if xtemp then go to nonblank3; end;
2)	ELSEC		if rast[xw] then go to nonblank3;
2)	ENDC
2)		yl←yl+1;
***************


**** File 1) MFDOVR.SAI[MF,DEK]/3P/62L
1)			if rast[xw] then go to nonblank4;
1)		yh←yh-1;
**** File 2) MFDOVR.SAI[MF,DRF]/3P/66L
2)	IFXMEM	begin var!gets!rast(xtemp,xw); if xtemp then go to nonblank4; end;
2)	ELSEC		if rast[xw] then go to nonblank4;
  1) MFDOVR.SAI[MF,DEK] and 2) MFDOVR.SAI[MF,DRF]	1-22-81 11:17	pages 3,3

2)	ENDC
2)		yh←yh-1;
***************


**** File 1) MFDOVR.SAI[MF,DEK]/3P/104L
1)			idpb(rast[wdaddr] lsh shft,bitptr);
1)			if ldb(pfield)=4 then 
**** File 2) MFDOVR.SAI[MF,DRF]/3P/110L
2)	IFXMEM		var!gets!rast!lsh!expr(xtemp,wdaddr,shft); idpb(xtemp,bitptr);
2)	ELSEC		idpb(rast[wdaddr] lsh shft,bitptr);	
2)	ENDC
2)			if ldb(pfield)=4 then 
***************